64: €64: €64: €64: C64: €64: €6^ 
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Guida per l'input dei programmi versioni 
C64 


Notate che i listati contengono 'paro¬ 
le' racchiuse tra parentesi graffe { }. 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da [()] deve essere premuto con¬ 


temporaneamente al tasto COMMO¬ 
DORE. Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico "so¬ 
litario"' questo dovrà essere pre¬ 
muto contemporaneamente al tasto 
CTRL. 

Con questo sistema di codifica, sarà 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colori. 


{CLR } 
{HOME} 
{SU} " 
(GIU'} 
(SIN) 

{ DES } 

{ RVS} 
{OFF } 

{BLK } 

( WHT } 

[ RED} 


[ SHIFT 

1 

Cir/home] 




cir/home 



SHIFT 


fi CRSR U 

figgali 

1 SHIFT 

i. 

t=CRSR =1 


Jc-CBSP -4 
CIBI | 9 B 

CIPl |G la 


[ CIRI 

8 1 i 


CTRL 

Lj 

mm 


[ CTRL 

n 


C (CYN ! 

s 

{ PUR } 

n 

{GRN { 

o 

{BLU} 

il 

{YEL} 

u 

{ < 1 > ] 

R 

[<2>] 


(<3>| 

□ 

(<4>1 

E 

[ < 5 > ! 

E 3 

I<6>] 


[ CTRL 

FI 


CTRL 

IH 


1 CTRL 

IH 

mm 


CTRL 

n 

■PggHi ! "V. 

| CTRL 

M 


0 O 

□ a 
0 a 
0 a 
0 □ 
0 a 


k 

l<7>) 

1 

(<8>| 

□ 

(FI } 

□ 

{ F 2} 

SS 

{F3} 

□ 

{ F4 } 

15 

f F5 } 


{ F6} 

o| 

{ F7 } 

E 

t F 8} 

■1 



0 a 

0 O 

KZl 

m 

eh 

co 

GB 

GB 

OB 

GB 



icevere gli arretrati di 



aV/TJ compilare il seguente tagliando: 


K 

J vuuifjiiaiK ku inviai*: in uu»d tniuu a: 

♦SOft viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Compilare ed inviare in busta chiusa a: 


Nome 


Cognome 
Indirizzo . 


CAP 


Città 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 




dedicato a. 


Anno 

Anno_ 


a L. 2.000 cad. per un totale di L. a mezzo 


□ assegno allegato 


□ contanti allegati 


K 






































6 Battaglia galattica (Joystick) 

di J. Bender trad. e adatt. di Stefano Albarelli 

A A Fu 9 a da Alcatraz (Joystick opz.) 

IV di M. Picker trad. e adatt. di S. Albarelli 
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| di S. D. Roberts trad. e adatt. di M. Anticoli 

ma Discesa a Friionia 

li di W. Ginger trad. e adatt. di S. Albarelli 

A A Labirintissimo 

1“ di K. Smithson trad. e adatt. di F. Sarcina 

ma ma Matematica e pittura (Joystick) 

Tim di S. D. Rutford trad. e adatt. di M Anticoli 

ma m Dragster (Joystick opz.) 

T£0 di D. yeldon trad. e adatt. di Angelo Moretti 
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Stop Bus 

Se non l'hai già fatto, memorizza 
STOP BUG e salvalo su nastro o di¬ 
sco. 

Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 


parola: ":rem" seguita da un nume¬ 
ro, detto checksum; NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 
che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me? per PRINT). 

Usando STOP BUG tieni conto del 


4 











fatto che gli spazi non influiscono 
sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 


Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE, e per riatti¬ 
varlo batti SYS 40704. 


STOP BUG per C64 

1 00 POKE55,0 :POKE56,PEEK{56)-1:R=PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO..." 

1 10 FORI=RTOR+l32:READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI,A:NEXT 

130 IFCK022689THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA":END 

140 SYS(R) :PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
O.": NEW 

200 DATAI 73,36,3,201 ,32,208,1 ,96,141 
210 DATA33,999,173,37,3,141,34,999,169 

2 20 DATA32,141 ,36,3,1 69,999,1 41 ,37,3 

2 30 DATAI 69,0,1 33,254,96,32,87,241 ,1 33 
240 DATA251,134,252,132,253,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,101 ,254,1 33 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,210,255,165,214,1 41 ,251 
280 DATA3,206,251,3,169,0,133,216,169 

2 90 DATAI 9,32,210,255,169,1 8,32,21 0,255 
300 DATAI 69,5 8,32,210,255,166,254,1 69,0 
310 DATAI 33,254,1 72,33,999,192,87,208,6 
320 DATA32,205,1 89,76,1 1 7,999,32,205,221 

3 30 DATAI 69,32,32,21-0,2 55,32,21 0,255,1 73 
340 DATA251,3,133,214,76,55,999 
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A 

» 

Battaslia saiattica 


"Battaglia galattica " è un divertente 
gioco che dira su C64 e simula una 
battaglia tra una nave terrestre e 
delle navette aliene. 

Facendo partire il programma, il 
computer visualizza il pannello di 
comando della vostra navetta spa¬ 
ziale, e mostra, nella parte restante 
dello schermo, quello che si vede 
guardando dalla cabina lo spazio 
circostante. 

1) L ’indicatore di FORZA che dimi¬ 
nuisce gradualmente e che se 
raggiunge lo 0 fa terminare la 
partita,- 

2) L'indicatore dei DANNI, che in¬ 
dica i danni subiti a causa delle 
raffiche aliene,- 

3) L'indicatore del tempo di so¬ 
pravvivenza, che vi permette di 
sfidare gli amici a battaglie al¬ 
l'ultimo secondo,- 

4) L’indicatore di proiettili rima¬ 
nenti, che diminuisce di una 
unità ad ogni sparo e che se 
raggiunge lo zero torna a 99 ma 
sottrae 200 unità di energia,- 


5) L'indicatore degli alieni uccisi, 
che vi permette di organizzare 
gare che proclameranno vinci¬ 
tore colui il quale compie la 
maggior strage di alieni. 

Per guidare la vostra navicella uti¬ 
lizzate il joystick in porta 2. 

È molto importante capire che 
l'alieno è fermo o si muove solo di 
rado, e che il joystick rappresenta 
la "cloche" dell'astronave, simile a 
quella di un aereo. 

Perciò se muovete il joystisk verso 
il basso vedrete l’alieno spostarsi 
verso il basso, mentre se muovete 
verso sinistra, l'alieno si sposta 
verso destra. 

Anche se non avete ben affermato 
il concetto non preoccupatevi, 
perché con la pratica riuscirete a 
colpire con facilità gli alieni. 
Ricordate che quando lo schermo 
lampeggia in rosso, vuol dire che 
l’alieno vi ha sparato, e quindi i 
vostri valori di energia e danni su¬ 
biranno una cambiamento sicura¬ 
mente dannoso. 


1 000 

• 

• 

: rem 

251 

1 01 0 

REM BATTAGLIA GALATTICA 

: rem 

1 85 

1 020 

• 

• 

: rem 

253 

1 030 

PRI NTCHR$ (14 7) CHR$ (152) 

:rem 

41 

1 040 

POKE53280,1 1 :POKE53 281 ,0 

: rem 

76 

1050 

• 

• 

:rem 

0 

1 060 

REM LEGGE I DATI DEGLI SPRITE 

: rem 

1 82 

1 070 

• 

• 

: rem 

2 

1 080 

FORI=0TO6 2: READJ:POKEI + 83 2,J:NEXT 

: rem 

1 22 

1090 

FORI=OTO62:READJ:POKEI+896,J:NEXT 

: rem 

1 33 

1 1 00 

• 

• 

: rem 

252 
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ino 

REM INI ZIALI ZZA GLI SPRITE 

: rem 

1 68 

1120 

• 

» 

» 

:rem 

254 

1 1 30 

VC=53248:POKEVC+21,3 

: rem 

1 44 

1140 

POKE2040,13:POKE2041,14 

: rem 

1 2 

1 1 50 

POKEVC+23,0 :POKEVC+29,3 

: rem 

114 

1160 

POKEVC+39,7 :POKEVC+40,12 

: rem 

1 70 

1 1 70 

POKEVC,161 :POKEVC+1,107 

: rem 

119 

1 1 80 

• 

• 

:rem 

4 

1 1 90 

REM INIZIALI ZZA LE VARIABILI 

: rem 

33 

1 200 

• 

• 

:rem 

253 

121 0 

SC = 1 024 : CO = 55296 

: rem 

1 14 

1220 

SE=SC+380:CE=CO+380 

: rem 

77 

1230 

X=INT(RND(1)*200+30) 

:rem 

71 

1 240 

Y=INT(RND(1)*150+10) 

:rem 

75 

1 250 

A(l) =1 :A(2) = 39:A(3) = 40: A ( 4 ) = 41 

: rem 

226 

1260 

A (5) = -1 :A(6) = -39:A(7)=-40:A(8) =-41 

:rem 

1 67 

1270 

EN=999:KI=0:DA=0:PH=99 • ^ 

: rem 

45 

1 280 

TI$="000000" 

: rem 

45 

1290 

• 

• 

: rem 

6 

1300 

REM INI ZIALI ZZA I PARAMETRI DEL S.I.D. 

: rem 

35 

1310 

• 

• 

: rem 

255 

1320 

S=54272 

: rem 

90 

1 330 

FORI=0TO24:POKES+I,0:NEXT 

: rem 

114 

1340 

POKES+24,14 

: rem 

1 08 

1350 

POKES+5,31 :POKES + 6,15 

:rem 

234 

1 360 

POKES,150:POKES+1,1 

: rem 

1 31 

1 370 

• 

• 

:rem 

5 

1380 

REM INIZIALI ZZA IL QUADRO COMANDI DELLA NAVICELLA 



: rem 

75 

1390 

• 

• 

:rem 

7 

1400 

PRINTCHRS (151) 

:rem 

59 

141 0 

POKE781,17:POKE782,0:SYS65520 

: rem 

202 

1420 

PRINTCHR$(18)"£ 

: rem 

55 

1430 

FORT=1T036:PRINT" [<P>]"; :NEXT 

: rem 

235 

1440 

PRINT” [<*>]"; 

: rem 

1 80 

1450 

PRINT" [<M>] [<A>]{ 12 *}[<S>]{ 3 SPAZI}" 

; :rem 

219 

1 460 

PRINT"{ 4 SPAZI}[<A>]{ 11 M[<S>][<M>]{ 2 

SPAZI }" 

• 

/ 



: rem 

28 

1470 

PRINT" [<M>] --FORZA :{ 5 SPAZI }-_[<A>] { 2 

*} M ; 



• 

:rem 

37 

1 480 

PRINT" { 3 *} [<S>]-FOTONI: { 4 SPAZI }- [<M> ] { 2 SPAZI} 


M • 

t 

: rem 

49 

1490 

PRINT" [<M> ] [<Q>] { 12 M[<W>]-{ 2 SPAZI} 

'■ ; : rem 

188 

1 500 

PRINT" { 3 SPAZI }-[<Q>] { 11 *_} [ <W> ] [ <M> ] { 

2 SPAZI} 

ii . 
r 


• 

: rem 

244 

1 510 

PRINT" [<M>] --DANNI :{ 5 SPAZI }-[< Z> ] { 2 

*}"; 



• 

: rem 

5 

1 520 

PRINT" { 3 *} [<X>]-UCCISI :{ 4 SPAZI }- [<M>] { 2 SPAZI} 


« . 

9 

: rem 

44 

1 530 

PRINT" [<M>] [<Z>] { 12 *}[<X>]{ 3 SPAZI}" 

; :rem 

230 


i 
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1540 

PRINT"{ 4 SPAZI}[<Z>]{ 11 _*} [<X>] [<M>] { 2 

SPAZI} 

«. 

/ 



: rem 

39 

1 550 

PRINT" L"; 

: rem 

1 63 

1 560 

F0RT=lT036:PRINT"[<P>]"; :NEXT 

: rem 

239 

1 570 

PRINT" @ " ;CHR$ (1 58) ; 

: rem 

1 90 

1 580 

FORI=0TO39:POKEl984+1,160 

: rem 

240 

1 590 

POKE56256+I,11:NEXT 

: rem 

129 

1600 

FORT=1TO25 :Q = INT(RND( 1 ) *68 0) 

:rera 

1 72 

1610 

POKECO+Q,7 :POKESC+Q,46 :NEXT 

: rem 

242 

1 620 

• 

• 

:rem 

3 

1 630 

REM ROUTINE PRINCIPALE ’ 

: rem 

1 87 

1 640 

• 

♦ 

:rem 

5 

1 650 

P=PEEK(56320):Z=0:R=0 

:rem 

201 

1660 

IFP=126THENZ=1 

: rem 

1 21 

1670 

IFP=125THENZ=2 

: rem 

1 22 

1 680 

IFP=123THENZ=4 

: rem 

1 23 

1 690 

IFP=119THENZ=3 

: rem 

1 28 

1 700 

IFP=111THENPH=PH-1:GOSUB2380 

: rem 

248 

1 71 0 

ONZGOSUBl950,1970,1990,2010 

: rem 

250 

1720 

POKEVC+30,0 

: rem 

1 24 

1 730 

IFP=111 AND(PEEK(VC + 30)AND3)=3THENGOSUB21 50 

:rem 

40 

1740 

EN=EN-.1 :IFENC0THEN2430 

: rem 

1 23 

1 750 

IFRND(1)C.025THENGOSUB2060 

:rem 

58 

1 760 

IFRND(1) <.2THENR=INT(RND(TI)* 4+1) 

:rem 

229 

1 770 

ONRGOSUBl950,1970,1990,2010 

: rem 

248 

1 780 

IFDA> 500THEN24 30 

: rem 

1 75 

1 790 

POKE781 ,19 :POKE782,1 1 :SYS65520 

: rem 

9 

1 800 

PRINT;INT(EN);"{SIN} " 

:rem 

1 24 

1 81 0 

POKE781 ,21 :POKE782,1 1 :SYS65520 

: rem 

251 

1 820 

PRINT;DA; 

: rem 

83 

1 830 

POKE781,19:POKE782,32:SYS65520 

: rem 

7 

1 840 

PRINT;PH;"{SIN} " 

:rem 

73 

1 850 

POKE781,21 :POKE782,32 : SYS65520 

:rem 

2 

1860 

PRINT;KI 

:rem 

43 

1870 

POKE781 ,20 :POKE782,18:SYS65520 

: rem 

7 

1 880 

PRINTMID$(TI$,3,1)MID$(TI$,4,1); 

:rem 

50 

1890 

PRINT":";RIGHT$(TI$,2) 

:rem 

42 

1 900 

POKEVC+2,X:POKEVC+3,Y 

:rem 

88 

1 91 0 

GOTOl650 

: rem 

208 

1 920 

• 

♦ 

:rem 

6 

1 930 

REM MOVIMENTO DELL'UFO 

:rem 

1 61 

1 940 

♦ 

• 

:rem 

8 

1950 

Y=Y~8:IFY<10THENY=10 

: rem 

8 

1 960 

RETURN 

:rem 

1 76 

1 970 

Y=Y+8: IFY >16 5THENY = 165 

: rem 

128 

1 980 

RETURN 

:rem 

1 78 

1 990 

X=X-8:IFX<10THENX= 1 0 

: rem 

8 

2000 

RETURN 

:rem 

1 62 

201 0 

X=X+8:IFX>246THENX=246 

: rem 

no 

2020 

RETURN 

: rem 

1 64 

2030 

• 

• 

: rem 

255 

2040 

REM L'UFO RISPONDE AL FUOCO 

: rem 

116 
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2050 

• 

• 

:rem 

i 

2060 

POKE53281,2:POKEVC+40,1 

: rem 

70 

2070 

POKES+4,129 :D A=D A+1NT{RND( 1 ) *30) 

:rem 

77 

2080 

EN=EN-10:IFEN<0THEN2430 

: rem 

1 23 

2090 

FORD = 1TO100 :NEXT:POKEVC+40,12 

: rem 

49 

21 00 

POKES+4,0:POKE53281 ,0 

: rem 

200 

21 1 0 

RETURN 

: rem 

1 64 

2120 

* 

• 

:rem 

255 

21 30 

REM L'UFO ESPLODE 

: rem 

1 9 

21 40 

• 

: rem 

1 

21 50 

POKEVC + 21 ,1 :POKES + 4,129 

: rem 

94 

2160 

POKE53281 ,7 :POKE53 280,1 2 

: rem 

88 

21 70 

FORD = l TO50 : NEXTD : POKE53281 ,0 

: rem 

240 

21 80 

POKE53280,11 

: rem 

1 38 

2190 

FORT=1TO 7 :FORD=1T02 5 :NEXTD 

: rem 

233 

2200 

G=INT(RND(TI)*8+1):W(T)=G 

: rem 

206 

221 0 

POKECE+T*A(G) ,1 :POKESE+T*A(G) , 1 27 

: rem 

164 

2220 

NEXTT:KI=KI+1 

: rem 

84 

2230 

FORT=1TO 7STEP.5 

: rem 

233 

2240 

POKESE+T*A(W(T)),32 

: rem 

87 

2250 

NEXT:POKES+4,0 

: rem 

1 27 

2260 

• 

• 

:rem 

4 

2270 

REM VISUALIZZA UN'ALTRO UFO 

: rem 

247 

2280 

• 

• 

: rem 

6 

2290 

FORJ=lTO2000:NEXT 

: rem 

74 

2300 

DATA0,16,0,0,16,0,0,16,0,0,16,0,0 

: rem 

59 

231 0 

Y=INT(RND(1)*150+10) 

:rem 

74 

2320 

POKEVC+2,X:POKEVC+3,Y 

:rem 

85 

2330 

POKEVC+21,3 

: rem 

1 25 

2340 

RETURN 

:rem 

1 69 

2350 

• 

• 

:rem 

4 

2360 

REM CONTROLLA I FOTONI (LASER) 

:rem 

61 

2370 

• 

• 

:rem 

6 

2380 

IFPH>0THENRETURN 

:rem 

113 

2390 

PH = 99:EN=EN-200 : RETURN 

:rem 

1 39 

2400 

• 

♦ 

:rem 

0 

2410 

REM FINE GIOCO 

:rem 

62 

2420 

• 

• 

:rem 

2 

2430 

POKEVC+21,0:FORI=l5TOOSTEP-1 

: rem 

245 

2440 

FORC=lTOl5 

: rem 

1 07 

2450 

POKE53281,C:POKE53280,C 

:rem 

70 

2460 

POKES+4,129:POKES+1,20+1 

:rem 

1 43 

2470 

POKES + 24,I :NEXTC,I 

: rem 

1 34 

2480 

POKES+4,0:POKE53281,0:POKE53280,0 

:rem 

1 54 

2490 

PRINTCHR$ (1 58)CHR$ (1 47) 

:rem 

58 

2500 

PRINT"GIOCHI ANCORA" 

: rem 

255 

251 0 

PRINT”0 SEI UN CONIGLIO?” 

: rem 

255 

2520 

PRINT:PRINT:PRINT 

:rem 

228 

2530 

PRINT" SI O NO ?." 

:rem 

1 1 8 

2540 

GETA$: IFA$< >"S"ANDA$< >"N"THEN2540 

:rem 

1 41 

2550 

IFA$="S"THENRUN 

:rem 

1 84 

2560 

END 

:rem 

1 64 
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2570 

• 

• 


: rem 

8 

2580 

REM DATI DEGLI SPRITE 


: rem 

1 7 

2590 

• 

• 


:rem 

1 0 

2600 

DATAO,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0 

: rem 

26 

261 0 

DATAO,0,254,0,254,0,0, 

0,0,0,0,0,0 

: rem 

57 

2620 

DATAO,0,0,0,0,0,0,0,0, 

0,0,16,0,0 

: rem 

247 

2630 

DATAI 6,0,0,16,0,0,16,0 

• 

: rem 

62 

2640 

* 

• 


: rem 

6 

2650 

DATAO,0,0,0,0,0,0,0,0, 

o 

o 

*» 

o 

o 

•h 

o 

o 

: rem 

31 

2660 

DATAO,0,0,0,120,0,7,207,128,60 

: rem 

200 

2670 

DATAI 20,240,96,0,24,71 

,255,136 

: rem 

233 

2680 

DATAI 24,120,248,88,48, 

104,76,48 

: rem 

48 

2690 

DATA200,71 ,255,1 36,64, 

0,8,224,0 

: rem 

21 

2700 

DATA28,160,0,20,160,0, 

20,224,0,28 

:rem 

93 

271 0 

DATAO,0,0 


: rem 

204 

2720 

• 

• 


: rem 

5 

2730 

REM FINE PROGRAMMA 


: rem 

1 20 


n 

o* 

ji Fuga da Alcatraz 


Joystick opz. 


Siete riusciti a diventare un guar¬ 
diano della celeberrima prigione di 
Alcatraz ed è la vostra prima notte 
di servizio. 

La luna è oscurata dalle nubi e un 
buio profondo regna nel cortile 
della prigione che dovete sorve¬ 
gliare. 

A un certo punto una sirena suona, 
avvertendovi che dei prigionieri 
sono scappati. 

Allora accendete un faro e tentate 
disperatamente di rintracciare i 
fuggiaschi prima che riescano a 
raggiungere il muro di cinta e scap¬ 
pare. 

Non preoccupatevi, comunque, 
questo è solo un gioco che gira su 
C64 con Joystick opzionale. 
Facendo partire il gioco vi viene 


chiesto il livello che preferite (da 1 
a 5; 1 è facile e 5 è difficile) e se 
volete giocare col joystick (porta 
2) o con la tastiera (tasti K-M e Z-X) 
Subito dopo aver risposto a queste 
domande il gioco inizia lizza alcune 
variabili, legge i dati degli sprite e 
da inizio alla partita con un sonoro 
avviso di fuga, e indicando, nell’an¬ 
golo in alto a sinistra, quanti prigio¬ 
nieri sono fuggiti. 

Subito dopo viene acceso il faro e 
inizia la frenetica fuga dei prigionie¬ 
ri, riconoscibili dalle loro spade. 
Quando ne avvistate uno (i prigio¬ 
nieri non sono visibili se non ven¬ 
gono colpiti dalla luce del vostro 
faro), sparate con il joystick o con 
la barra se avete scelto di usare la 
tastiera. 


io 





1 POKE53281 ,5t POKE53280,5t PRINT"{CLR}{ 7 GIU' 

Hblk} 


{ 3 DES}LIVELLO (1-5) ?" 

: rem 

1 98 

2 GETA$:IFA$=""ORVAL(A$)<10RVAL(A$)>5THEN2 

:rem 

21 9 

3 L=VAL(A$)t LV=L*4 t PL=Lt L=L* 21 ES = 01 SC = 01 PRINT 

" {CLR}" 



:rem 

252 

5 POKE53275,255:AW=SC 

trem 

21 5 

7 X2 = 200*RND(1)+50tY2 = 2301X=100 :Y=100 

trem 

8 

8 X3=200*RND(1)+50tY3=230 

trem 

74 

9 POKE53281,0tPOKE53280,0 

t rem 

1 42 

10 V=53248 

t rem 

250 

12 POKE2040,1 92:POKE2041 ,1 93tPOKE2047,1 99 

trem 

30 

13 PRINT"{WHT}{ 7 GIU'}TASTIERA O JOYSTICK (T/J)?" 



t rem 

42 

14 GETK$ tIFK$=""THENl4 

t rem 

1 

15 PRINT"{CLR}":FORI = lTO40 t T=1000*RND(1) tPOKE55296+T, 

0 : PO 

KEl0 24+T,8 8 :NEXTtGOSUB500 

trem 

39 


16 FORI 3 1TOl0 :T=1000*RND(1) :POKE55296 + T,0 :POKEl 024+T,65:N 

EXT:POKEV+21,131 :rem 65 

17 FORI = 1TO40:T=10 00*RND(1) tPOKE55296+T,0 :POKEl024+T,88 :N 

EXT:GOSUB500 :rem 139 

18 FORN=12288TO12350:READQ:POKEN,Q:NEXT :rem 210 

19 RESTOREtFORN=l2352T012414tREADQtPOKEN,QtNEXT :rem 42 

20 FORN = l2736TO12798:READQ:POKEN,Q:NEXT :rera 217 

21 PRINT"{HOME} [<3>]##################################### 

:rem 236 
:rein 72 
:rem 57 
:rem 119 
:rem 129 
:rem 44 
:rem 131 
treni 131 
:rem 134 
:rem 137 
:rem 23 
:rem 23 
treni 27 
trem 66 
t rem 186 
trem 208 
trem 207 
trem 25 
trem 140 
trem 175 
trem 194 
trem 168 
trem 208 
trem 254 
trem 212 
trem 2 
trem 120 

11 


11 

22 REM 

24 POKEV+39,0 :POKEV+40,0 :POKEV+46,1 

25 JV=PEEK(563 20) tFR=JVANDl6 :JV=15-(JVANDl5) 

26 GOSUB900 

27 IFK$="T"THENl000 

30 IFJV=1THENY =Y-8 

31 IFJV=2THENY=Y+8 

32 IFJV= 4THENX=X-8 

33 IFJV= 8THENX=X+8 

34 IFJV= 5THENY =Y -81 X=X-8 

35 IFJV=6THENY=Y+8tX=X-8 

36 IFJV= 9THENY =Y- 81 X=X+8 

37 IFJV=10THENY=Y+8:X=X+8 

38 IFFROl 6THENGOSUB620 

40 IFX>255ANDPEEK(V+16)=OTHENPOKEV+16,128tX=l 

41 IFX<1ANDPEEK(V+l6)=128THENX=2551 POKEV+16,0 

42 IFY<50THENY=50 

43 IFY>229THENY = 229 

44 IFX<0THENX=0 

45 IFX<28ANDPEEK(V+l6)=0THENX=28 

46 IFES = 0THENPOKEV+l4,XtPOKEV+15,YtGOTO460 

50 X2=X2+INT(LV*RND(1)-(LV/2)) 

51 Y2 = Y2-INT(L*RND( 1 ) ) 

52 X3=X3+INT(LV*RND(1)-(LV/2)) 

53 Y3 = Y3-INT(L*RND( 1 ) ) 

60 IFY2<50THENPOKEV+39,7tPRINT"{CLR}"tGOTO800 



61 

IFY 2 > 2 2 7THENY 2=227 

:rem 

236 

62 

IFX2< 24THENX2 = 24 

: rem 

1 27 

63 

IFX2>250THENX2=250 

: rem 

228 

65 

IFY3<50THENPOKEV+40,7 :PRINT"{CLR}":GOTO800 

:rem 

1 1 8 

66 

IFY3>227THENY3=227 

: rem 

243 

67 

IFX 3 < 2 4 THENX 3=24 

:rem 

1 34 

68 

IFX3> 250THENX3 = 250 

:rem 

235 

100 

POKEV,X2:POKEV+2, X3:POKEV+14,X 

:rem 

114 

110 

POKEV+1,Y2:POKEV+3 f Y3:POKEV+15,Y 

:rem 

212 

1 1 8 

IFFR=16THEN130 

: rem 

40 

1 20 

IFPEEK(V+30)AND4=4THEN400 

:rem 

1 83 

1 30 

GOTO25 

:rem 

52 

200 

DATA0,0,16,0,24,8,0,36,4,0,36,2,0,24,3,0,24 

,7,0,254,1 


4,1,255,252 

:rem 

249 

21 0 

DATA3,255,248,15,235,240,14,126,0,28,126,0, 

56 f 60/ 

0,1 1 


2,62,0 

: rem 

42 

220 

DATA224, 1 1 9,0,64,231 ,0,1 ,199,0,2,139,0,7,7, 

0,14/7 

,0,1 


4,7,0 

:rem 

234 

250 

DATA0,255,0,3,255,192,7,255,224,15,255,240, 

31 / 255 

,248 


,63,255,252 

2 rem 

67 

260 

DATAI 27,2 55,2 54,2 55,2 55,255,255,255,2 55,2 55 

,255,255,2 


55,255,255 

2 rem 

59 

270 

DATA255,2 55,255,255,255,255,255,255,255,1 27 

,255,254,6 


3,255,252 

2 rem 

6 

280 

DATA31,2 55,248,1 5,2 55,240, 7,255,224,3,255,1 92,0,2 55,0 



2 rem 

36 

400 

IFX<X2+15ANDX>X2-15ANDY<Y2+15ANDY>Y2-15THENX2=200*RND 


(1)+50:Y2=230:GOTO430 

2 rem 

1 73 

41 0 

IFX<X3+15ANDX>X3~15ANDY-Y3+15ANDY>Y3-15THENX3=200 

*RND 


(1)+50:Y3=230:GOTO430 

:rem 

1 65 

420 

GOTOl30 

: rem 

99 

430 

GOSUB640:SC = SC + 50:NU =NU~ 1 :IFNU<1 THEN450 

2 rem 

160 

435 

GOTOl30 

2 rem 

1 05 

450 

NU=0:ES=0:X2=0:Y2=0:X3=0:Y3=0 

2 rem 

1 76 

455 

POKEV,0 : PO KEV+1,0:POKEV+2,0:POKEV+ 3,0 : GOTO 13 0 




2 rem 

238 

460 

CH = 0:CH = INT( 35*RND ( 1 ) )+l : IFCHOl THEN25 

2 rem 

185 

465 

NU = INT ( 1 0*RND (1 ) ) + 2 :X2 = 200*RND(1 ) +1 :X3=20 0*: 

RND(1)+1:Y 


2=230:Y3=Y2 :rem 45 

475 GOSUB600:PRINT"{HOME}[<3>]{ 2 GIU'}NO.=";NU:FORT=1TO6 

00 :NEXT:PRINT"{HOME}{ 2 GIU'}{ 6 SPAZI}":ES = 100 :G0TO2 
5 :rem 193 

476 REM :rem 133 

500 PRINT"{HOME}{BLK}{ 8 GIU'}" :rem 145 

501 REM :rem 122 

502 PRINT”{ 27 DES}[< 10 +>]" :rem 243 

505 PRINT"{ 27 DES}[< 2 +>]{ 6 SPAZI}[< 2 + >]" :rem 18 

510 PRINT"{ 27 DES} [< +>] [<+>]{ 4 SPAZI} [<+>] [<+>]" 

:rem 14 

515 PRINT"{ 27 DES}[<+>]{ 2 SPAZI}[<+>]{ 2 SPAZI}[<+>] 

{ 2 SPAZI} [<+>]" .-rem 19 

12 



520 PRINT"{ 27 DES}[<+>]{ 3 SPAZI}[< 2 +>]{ 3 SPAZI}[<+>] 
" :rem 15 

525 PRINT"{ 27 DES}[< 2 +>]{ 2 SPAZI}[< 2 +>] { 3 SPAZI} 
[<+>]" :rem 186 

530 PRINT"{ 28 DES}[<+>]{ 2 SPAZI}[< 2 +>]{ 3 SPAZI}[<+>] 
" :rem 45 

535 PRINT"{ 28 DES}[<+>]{ 2 SPAZI}[< 2 +>]{ 3 SPAZI}[<+>] 

" :rem 50 

540 PRINT"{ 27 DES}[< 2 +> ] { 2 SPAZI}[< 2 +>]{ 3 SPAZI} 

[<+>]" :rem 183 

545 PRINT"{ 27 DES}[<+>]{ 3 SPAZI}[< 2 +>]{ 3 SPAZI}[<+>] 
" :rem 22 

550 PRINT"{ 27 DES}[<+>]{ 3 SPAZI}[< 2 +>]{ 3 SPAZI}[<+>] 



«1 

: rem 

1 8 

555 

PRINT"{ 27 DES}[<+>]{ 

2 SPAZI}[<+>]{ 2 SPAZI}[<+>] 



{ 2 SPAZI}[<+>]" 

:rem 

23 

560 

PRINT"{ 27 DES}[<+>] 

[<+>]{ 4 SPAZI}[<+>] [<+>]" 

:rem 

19 

565 

PRINT"[<+>] [< 3 +>] 

[< 3 +>] { 18 DES} [< 2 +>] 



{ 6 SPAZI}[< 2 +>]" 

:rem 

157 

570 

PRINT"{ 8 SPAZI}[<+>]{ 18 DES}[< 10 +>]" : rem 

1 53 

590 

RETURN 

:rem 

126 

600 

FORP=1TO10 

:rem 

63 


605 S = 54272:FORW=0TO24:POKES+W,0 :NEXT:POKES+1,100:POKES+5 
,15:POKES+15,255 :rem 200 

610 POKES+24,15:POKES+4,17 :FORT=lTOl00:NEXT:POKES+4,18:NE 
XT :rem 164 

615 RETURN :rem 124 

620 S=54272:FORW=0TO24:POKES+W,0:NEXT:POKES+1,20:POKES+5, 
5 :POKES+15,255 :rem 101 

625 POKES+24,15:POKES+4,129 :rem 37 

630 RETURN :rem 121 

640 S=54272:FORW=OTO24:POKES+W,0:NEXT:POKES+1,100:POKES+5 
,120:POKES+15,255 :rem 244 

645 POKE S+24,15:POKE S+129 :rem 3 

650 RETURN :rera 123 

800 FORT=lTO300:NEXT:PRINT"{CLR}" :rem 142 

805 REM :rem 129 

810 S = 5427 2 :FORW=0TO24;POKES+W,0 :NEXT:POKES+1,100:POKES+5 
, 50: POKES+1 5,1 0 :reni 138 

815 POKES+24,15:FORT=lT0255:POKES+1,T:POKES+4,33:POKES+4, 
18:NEXT :rem 211 

82 0 FORT= 1 TO 20 0 : NEXT : POKEV+ 21,0 : POKE5328 1 , 8 : POKE53280,8 






: rem 

8 

830 

PRINT” { 8 GIU'HBLKH 

6 

SPAZI}UN PRIGIONIERO 

E ' SCAPP 


ATO !":FORT=lT02000:NEXT 

: rem 

23 

835 

REM 



: rem 

1 32 

840 

PRINT"{ 5 GIU 1 }{RED}{ 

{ 5 SPAZI}";SC 

4 

DES}PUNTEGGIO {WHT} 

:rem 

21 8 

845 

REM 



: rem 

1 33 


13 



850 

FORT=lT02000:NEXT:PRINT"{ 2 GIU'}{YEL}{ 10 

SPAZI}GIOC 


HI ANCORA (S/N)?" 

: rem 

1 82 

851 

REM 

: rem 

1 30 

855 

GETA$:IFA$< >"S"THEN865 

: rem 

248 

860 

RUN 

: rem 

1 47 

865 

IFA$<>"N"THEN855 

: rem 

1 1 6 

870 

POKE53281,9 : PO KE 5 3 2 8 0,9 :PRINT"[<2>]{CLR}{ 4 

GIU 1 }" 

: EN 


D 

: rem 

1 42 

875 

REM 

: rem 

1 36 

900 

IFSC=AW+1000THENPL=PL+1:PRINT"{HOME}{ 5 GIU 

1 } {CYN} 

LI 


VELLO{WHT}{ 2 SPAZI}";PL:GOT0910 

: rem 

1 45 

901 

REM 

: rem 

1 26 

905 

RETURN 

: rem 

1 26 

91 0 

AW=SC:L=L+2:LV=LV+4:FORT=lTOl000 :NEXT 

: rem 

75 

91 5 

PRINT"{HOME}{ 5 GIU'}{ 14 SPAZI}":RETURN 

: rem 

242 

916 

REM 

: rem 

1 32 

920 

RETURN 

: rem 

1 23 

1 000 

JV=PEEK(197) :IFJV=60THENFR=1 0 

: rem 

38 

1010 

IFJV= 37THENY=Y- 8 

: rem 

27 

1011 

IFJV=36THENY=Y+8 

: rem 

25 

101 2 

IFJV=12THENX=X-8 

: rem 

20 

1013 

IFJV=23THENX=X+8 

: rem 

21 

1015 

GOTO38 

: rem 

107 


A 

^ Spaccamuro 


Chi frequenta spesso le sale giochi 
sa che questo gioco è uno dei più 
famosi "arcadegame”. Questa ver¬ 
sione per C64 è molto simile alla 
versione " pubblica”, ma ha una 
qualità in più: si può giocare senza 
pagare quasi nulla!! 

Il fine del gioco è di " spaccare" il 


5 PRINT"{CLR}{ 10 GIU'}{BLK} 
{ 2 SPAZI}M U R O" 

9 FORI=lT0200 0:NEXT:FA=542 72 

10 FORI = 82 9TO 887 
15 READM:POKEI,M 
20 NEXTI 


muro, composto da tre file di mat¬ 
toni. Il giocatore ha a disposizione, 
per riuscire a distruggere il muro, 
cinque palline. Chi riuscisse a spac¬ 
carlo con meno di cinque palline 
avrà anche il suo quoziente dì bra¬ 
vura. 


TAB (1 0) "SPACCA 

: rem 142 

POKE53281 ,1 5 :POKE53280,7 

:r em 131 
:rem 187 
:rem 250 
:rem 234 


14 





: rem 
: rem 


25 M=0 

30 DATA165,203,201,47,208,21,224 
40 DATAO,208,3,76,110,3,169,96,157,199 
50 DATA7,1 69,1 60,1 57,196,7,202,76,1 10,3 
60 DATA201,44,208,18,224, 27,208,3,76,110 
70 DATA3,169,96,157,197,7,169,160,157,200 
80 DATA7,232,142,224,3,96,174,224,3,76,61,3 
90 PRINT"{CLR}{ 4 GIU'}"TAB(10)"S P A C C A{ 2 SPAZI}M U 
R O" :rem 204 

95 PRINTTAB(6)"{ 3 GIU'}PER MUOVERE USA I TASTI:” 

:rem 203 

{GIU'}{RVS},{OFF} PER ANDARE VERSO SINIST 

:rem 47 


: rem 
: rem 
: rem 
: rem 
: rem 


33 
73 
1 36 
1 79 
21 5 
42 
1 1 5 


100 PRINTTAB (6)" 
RA" 


105 PRINTTAB(6)"{GIU'}{RVS}.{OFF} PER ANDARE VERSO DESTRA 



TI 

: rem 

1 40 

1 1 0 

PRINTTAB(5)"{GIU'}HAI A DISPOSIZIONE 

{RVS}5{OFF} 

PALL 


INE." 

: rem 

1 44 

1 85 

PRINTTAB(7)"{ 4 GIU'}PREMI UN TASTO 

PER GIOCARE" 




: rem 

1 58 

1 90 

GETA$: IFA$ = ""THEN190 

: rem 

87 

200 

PRINT"{CLR}"SPC(4)"{CYN}[< 32 0>]" 

: rem 

100 

205 

PRINT"{CLR}"SPC(4)"{CYN}{< 32 0>]" 

: rem 

1 05 

21 0 

FORI=ITO3 

: rem 

7 

220 

PRINTSPC(4)"[<L>]"SPC(30)"[<J>]" 

: rem 

25 

230 

NEXTI 

: rem 

29 

240 

PRINTSPC(4)"[<L>]{RVS}{BLU}L@[<P>]@[<P>]@[<P>]@[<P>] 


@ [<P>] @ [<P>] @ [<P>] @ [<P>]@ [<P>] @ [<P>] @ [<P>] @ [<P>]£ 

[<p>] H<p>] @Tcyn}{off} [<j>] {rvs} {blkTpal. {OFF}"; 

:rem 93 

250 PRINTSPC(4)"{CYN}[<L>]{RVS}{BLU}L@[<P>] (jj[<P>]@[<P>]@ 
[<P>] i| [<P>] @ [<P>] @ [<P>] @J<P>] @ [<P>] @ [<P>] @ [<P>]@ [<P>] 
@[<P>]@[<P>]@{CYNT{OFF}[<J>]" : rem 131 

260 PRINTSPC(4)"JCYN}[<L>]{RVS}{BLU}L@[<P>]@{<P>]@[<P>]@ 
[<P>] @ [<P>] @ [<P>] @ [<P>] @ [<P>] [<P>] @ [<P>] @ [<P>] @ [<P>] 

@ [<p>] jH<p>] (3 {cyn7{off} [<J>] " 

270 FORI = 1 TOT 7 

280 PRINTSPC(4)"{CYN}[<L>]"SPC(30)"[<J>]" 

290 NEXTI 

295 PRINTSPC(4)"[<L>]{ 15 SPAZl}{RVS}{ 3 SPAZl}{OFF} 

{ 12 SPAZI}[<J>]"; 

300 POKE99 2,1 4 :S=30 

310 SI = 54272:POKESI + 6,240 :POKESI+13,240:POKESI + 20,240 


320 POKESI+24,15 :POKESI + 1,49 :POKESI + 8,30 :POKESI + 15,15 

330 POKES1 + 5,0:POKESI + 12,0:POKESI + 19,0 
400 N=1 :GOSUBl080 

500 FORI = 56261TO56290 :POKEI,8 :NEXT 
505 P = 1 309+INT(RND(1)*30) :POKEP,81 :POKEP+FA,5 
510 RD = INT(RND(1) *3)+1 
520 ON RD GOTO530,540,550 


: rem 

132 

: rem 

66 

" :rem 

1 90 

: rem 

35 

SPAZI}{OFF} 

: rem 

38 

: rem 

36 

PO KES1 + 20,240 

: rem 

67 

:POKESI+15,15 

: rem 

1 56 

: rem 

2 

: rem 

21 1 

: rem 

62 

+FA,5 :rem 

104 

: rem 

196 

: rem 

38 


15 



530 

R=39:GOTO560 

: rem 

161 

540 

R=40:GOTO560 

: rem 

1 54 

550 

R=41:G0TO560 

: rem 

1 56 

560 

REM 

: rem 

1 27 

600 

POKESI+4,0:FORESI+11,0:POKESI+18,0:SYS(882) 

: rem 

43 

602 

FORK=1TOS:NEXTK 

: rem 

242 

605 

SYS (882) 

: rem 

1 41 

607 

Z=PEEK(P+R) 

: rem 

119 

610 

IFZ = 32THENPOKEP,32 :P = P+R:POKEP,81 :POKEP+FA, 

5 :GOTO600 



: rem 

24 

620 

IFZ=960RP>1983THENN=N+0:GOSUBl000:GOT0500 

: rem 

23 

630 

IFZ = 117THENR=R~2 :POKESI + 4,17:GOTO600 

: rem 

200 

640 

IFZ=118THENR=R+2:POKESI+4,17:GOTO600 

: rem 

200 

642 

IFZ = 160ANDPEEK(P+R+l)<>160THENPOKESI+1 1,33: 

R=-39 : 

GOTO 


600 

: rem 

96 

643 

IFZ=160ANDPEEK(P+R~1)<>160THENPOKESI+1 1 ,33: 

R=-4 ! : 

GOTO 


600 

: rem 

92 

650 

IFZ = 121THENPOKESI + 4,17 :R=R+SGN(R)*(-80) :GOTO60 0 




: rem 

44 

652 

IFZ = 160THENPOKESI+4,33 :R=R+SGN(R)*(-80) :GOTO60 0 




: rem 

47 

660 

POKEP+R,32 

: rem 

41 

662 

IFZ=204THENPOKEP+R+1,32:M=M+1:POKESI+l8,33: 

G0T0666 



: rem 

31 

664 

IFZ=250THENPOKEP+R-1,32:M=M+1:POKESI+l8,33 

: rem 

1 5 

666 

IFM>35THENS=0:GOT0669 

: rem 

43 

667 

IFM>25THENS = 10 : GOTO669 

: rem 

92 

668 

IFM>10THENS=20 

: rem 

64 

669 

IFM=45THEN800 

: rem 

238 

670 

R=R+SGN(R)*(-80):PRINT"{HOME}{RVS}{BLK}";M; 

"{HOME} 


{OFF} ":GOTO600 

: rem 

1 85 

800 

IFM<45THEN900 

: rem 

225 

805 

IFN=1THENPRINT"{CLR}{ 3 GIU'}{PUR}HAI DISTRUTTO IL MU 


RO CON UNA PALLINA !l":GOTO830 

: rem 

21 9 

810 

PRINT"{CLR}{ 3 GIU'}{ 2 SPAZI}HAI DISTRUTTO 

IL MURO C 


ON";N;"PALLINE" 

: rem 

1 53 

830 

ON N GOTO840,845,850,855,860 

: rem 

1 37 

840 

K$ = "IL TOP DELLA CLASSE": GOTO870 

: rem 

67 

845 

K$ = "ECCELLENTE":GOTO 8 7 0 

2 rem 

1 1 9 

850 

K$="MOLTO BUONO":GOTO870 

2 rem 

1 73 

855 

K$="MEDIOCRE":GOTO870 

2 rem 

236 

860 

K$="COSI' COSI'" 

2 rem 

56 

870 

PRINT"{GIU'}SEI STATO ";K$;"!{ 2 GIU'}" 

2 rem 

89 

880 

POKESI + 24,0 : GOTO94 0 

2 rem 

1 04 

900 

PRINT"{HOME}{BLK}" 

2 rem 

1 3 

940 

PRINTTAB(7)"VUOI GIOCARE ANCORA{ 2 SPAZI}(S/N) ?" 




2 rem 

30 

960 

GETA$ 

2 rem 

228 

970 

IFA$="S"THENN=1:M=0:GOTO200 

2 rem 

76 

980 

IFA$< >"N"THEN960 

2 rem 

1 1 1 

985 

PRINT"{CLR}" 

2 rem 

1 0 


16 



990 : 

PRINT"{ 2 GIU'}CIAO CIAO ! !" 

: rem 

1 5 

995 : 

END 

: rem 

1 26 

1 000 

IFP+R<2024THENPOKEP, 32 : P=P+R 

: rem 

244 

1 010 

FORI =1T05 

: rem 

56 

1 020 

POKEP,81 :POKEP+FA,2 :POKESI + 1,15:POKESI+4, 

3 3 : rem 

137 

1 030 

FORJ=lTO50:NEXTJ:POKESI+4,0 

: rem 

238 

1 040 

POKEP,96:POKESI+l,10 :POKESI + 4,33 

: rem 

1 95 

1050 

FORJ = lTO50:NEXTJ:POKESI + 4,0 

: rem 

240 

1 060 

NEXTI:POKESI + 1 ,49 

: rem 

73 

1070 

IFN>5THEN800 

: rem 

223 

1 080 

B$=STR$(N) 

: rem 

40 

1 1 30 

POKEl 262,VAL(RIGHT$(B$,l) )+176 :POKE55534, 

0 : rem 

1 05 

1 1 40 

RETURN 

: rem 

1 66 



Discesa a Friionia 


M 

- 4 - 

«o 

Joystick u 


State compiendo un viaggio inter- 
gallattico quando vi accorgete di 
una perdita di carburante dal ser¬ 
batoio, che vi costringe ad atterra¬ 
re sul pianeta più vicino per fare 
rifornimento tramite la navetta ser¬ 
batoio che vi segue ad alcuni mi¬ 
nuti luce di distanza. 

Guardando sulla mappa vi accor¬ 
gete che l'unico pianeta vicino è 
Friionia, uno strano pianeta del si¬ 
stema stellare di Burnotilus. 

Tentate l'atterraggio ma nel punto 
in cui vi appoggiate si trova un 
profondo cratere coperto da strani 
arbusti. 

Da allora l'unico vostro pensiero è 
quello di evitare di schiantarvi con¬ 
tro una parete del profondo crate¬ 
re, nella speranza di trovare 
un'uscita dall'altro lato del tunnel. 


Purtroppo le pareti si stringono 
sempre più e diviene sempre più 
pericoloso continuare. 

Per vivere questa eccitante e peri¬ 
colosa avventura caricate su C64 
questo gioco. Per giocare si usa il 
Joystick in porta 2 che serve per 
muoversi verso destra e verso sini¬ 
stra; p>er rallentare la discesa in ca¬ 
so di estremo pericolo bisogna 
premere il pulsante "Fire". 

Quando la vostra astronave sbat¬ 
terà contro una parete perderà un 
poco della sua corazza termopro¬ 
tettiva, che vi permette di resistere 
al calore del pianeta, e dopo 4 
scontri la corazza si frantuma com¬ 
pletamente e la partita termina, 
dandovi il numero di km percorsi 
nel tunnel. 

Buona fortunali 


40 GOSUBl600:GOSUBl 800 :rem 46 
50 POKE53280,0 :POKE53281 ,0:DD=56320 :rem 185 
60 PRINT"{CLR}":S$ = "{SU}{ 8 SPAZI}" :rem 141 
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65 REM 

:rem 

79 

70 Q 

= 7:SC = 1024:X = 1 4 

: rem 

52 

80 FORRR=lTO20 0 :PRINT"{RVS}{BLU}{ 38 SPAZI}” 

:rem 

210 

8 2 REM 

: rem 

78 

85 IFS$ = "{SU}{ 2 SPAZI}"THENl 500 

: rem 

122 

90 Z 

= RND (1 ) 

:rem 

102 

1 00 

Q=Q+{Z<.5)-(Z>=.5) 

: rem 

1 55 

no 

IFQ>24THENQ=24 

:rem 

57 

120 

IFQ<=4THENQ=4 

: rem 

1 7 

130 

PRINTTAB(Q+3)S$ 

: rem 

1 1 1 

1 40 

POKESC+X,90:POKESC+54272+X,1 

:rem 

1 28 

150 

Xl =X:GOSUB5000 : IFFROl 6THENFORTD = 1 T0300: NEXT: rem 

64 

1 55 

IFJV=4THENX=X-1 

: rem 

1 81 

1 57 

IFJV=8THENX=X+1 

: rem 

1 85 

1 70 

IFPEEK(SC+X+40)=160THEN1000 

: rem 

9 

1 80 

M=M+10 :NEXT:S$ =LEFT$(S$,(LEN(S$)-1) ) :GOTO80 :rem 

21 5 

1000 

H=H+1 

: rem 

234 

1 01 0 

POKEVO,!5 :POKEAD,17:POKESR,164 :POKEWF,33 : 

POKEHF, 

3: PO 


KELF,155 

2 rem 

47 

1 020 

FORTD = 1TO 500 :NEXTTD:POKEVO,0 :POKEWF,0 

2 rem 

197 

1030 

FORTD=lTOl000:NEXTTD:IFH=4THENGOTO1200 

2 rem 

21 1 

1050 

IFPEEK(SC+X-2)=32THENX=X-2: GOTO10 70 

treni 

155 

1060 

X=X+2 

2 rem 

1 7 

1070 

GOTO!80 

2 rem 

1 54 

1 200 

PRINT"{CLR}":PRINTTAB(10)"[<1>]{ 6 GIU'}{RVS}****FIN 


E{ 2 SPAZI}GIOCO**** M 

: rem 

1 51 

1 205 

REM 

treni 

1 72 

1 21 0 

PRINTTAB(2)"{GIU 1 }[<7>]HAI PERCORSO";M/1000"KM NEL T 


UNNEL DI" 

2 rem 

1 11 

121 5 

REM 

treni 

1 73 

1220 

PRINTTAB(15)"{CYN}FRILONIA[< 7>]" 

2 rem 

1 77 

1225 

REM 

treni 

1 74 

1230 

POKEVO,15:POKEAD,15:POKEWF,17 

: rem 

70 

1240 

FORHl= 60T020STEP-2 :FORLl = 250TO1OSTEP-5 

trem 

126 

1250 

POKEHF,Hi:POKELF>Ll:NEXT:NEXT 

2 rem 

1 92 

1 260 

POKEVO,0:POKEWF,0 

2 rem 

91 

1 270 

FORTD=lTOl000:NEXT 

: rem 

1 48 

1280 

POKE53280, 1 1 .POKE53281 ,6:PRINT"{CLR}" 

trem 

246 

1290 

PRINTTAB(10)"{ 5 GIU'}GIOCHI ANCORA (S/N) 

? 11 s rem 

66 

1 295 

REM 

2 rem 

1 81 

1300 

GETA$:IFA$=""THENl300 

: rem 

1 71 

131 0 

IFA$="S"THENRUN 

2 rem 

1 77 

1320 

IFA$="N"THENEND 

2 rem 

143 

1 330 

IFA$<>"S"ANDA$< >"N"THENl300 

: rem 

3 

1 500 

PRINT"{CLR}" 

trem 

42 

1 505 

REM 

2 rem 

1 75 

1 51 0 

POKEVO,15:POKEAD,17:POKESR,32:POKEWF,17 

: rem 

232 

1 520 

Hi=INT(20*RND(1)+2) : Li=INT(40*RND(1)+10) 

trem 

1 85 

1 530 

POKEHF,Hi :POKELF,Ll:FORTD = lTOSO :NEXTTD 

trem 

15 

1540 

SS=SS+1:IFSS>8THENSS = 0:POKEVO,0 :POKEWF,0 : 

GOTO!560 



: rem 

225 


18 



1 550 

GOTO1520 

: rem 

204 

1 560 

PRINTTAB(14)"{ 3 GIU'}{RVS}{YEL}BRAVISSIMO! 

ii 




: rem 

45 

1 565 

REM 

: rem 

1 81 

1 570 

PRINT"{GIU'}{ 2 SPAZI}HAI RAGGIUNTO IL FONDO DEL 

TUN 


NEL DI{ 2 SPAZI}" 

: rem 

1 1 6 

1 580 

PRINTTAB{15)"{CYN}FRILONIA[<7>]" 

: rem 

1 86 

1 590 

GOTOl210 

: rem 

204 

1 600 

PRINT"{CLR}" 

: rem 

43 

1 605 

REM 

: rem 

1 76 

1610 

VO = 542 96 :AD = 54278:SR= 5427 7 :WF= 54276 :HF=54273:LF= 

5427 


2 

: rem 

1 8 

1 700 

RETURN 

: rem 

1 68 

1 800 

PRINT"{CLR}":PONE53280,11:POKE53281,14 

: rem 

35 

1 81 0 

GOSUB2000:PRINT"{HOME}{ 8 GIU'}":PRINTTAB(10)"DISCES 


A SU FRILONIA" 

: rem 

62 

1 820 

GOSUB2010:PRINT"{HOME}{ 8 GIU'}":PRINTTAB(10)"DISCES 


A SU FRILONIA" 

: rem 

64 

1 830 

GOSUB2020:PRINT"{HOME}{ 8 GIU'}":PRINTTAB(10)"DISCES 


A SU FRILONIA" 

: rem 

66 

1 840 

PONEVO,15:POKEAD,17:POKESR,132:POKEWF,3 3 

: rem 

29 

1 850 

H1=100:Li=200 

: rem 

1 55 

1 860 

POKEHF,Hl:POKELF,Ll:FORTD=lTOl25:NEXT 

: rem 

1 76 

1 870 

Hi=Hl-5:Ll=Ll-10:XX=XX + 1:IFXX=17THENXX=0: PONEVO, 

0: PO 


NEWF,0-.RETURN 

: rem 

227 

1 880 

GOTOl860 

: rem 

21 7 

2000 

FORTD=ITO500:NEXT:PRINT"{RED}": RETURN 

: rem 

1 61 

201 0 

FORTD = 1TO 50 0 :NEXT:PRINT"{BLU}": RETURN 

: rem 

165 

2020 

FORTD = 1TO500 :NEXT:PRINT"{BLN}": RETURN 

: rem 

23 

5000 

JV=PEEN(DD) :FR=JVANDl6 :JV=15-(JVANDl5) 

: rem 

93 

501 0 

RETURN 

: rem 

1 66 


Labirintissimo 


U 

«a- 

*o 

v 


Devi attraversare un intricatissimo 
labirinto, senerato casualmente dal 
computer e quindi ogni volta diver¬ 
so, nel minor numero di mos¬ 


se possibili e nel minor tempo. Per 
muoverti utilizza i tasti di cursore. 
Qualunque uscita del labirinto nella 
parte alta dello schermo è valida. 


1 0 

REM LABIRINTISSIMO 


: rem 

1 1 0 

20 

REM PAPERSOFT 


: rem 

250 

30 

PONE5328 0,2 :PONE53281 

,2:PONE53272,21 

19 

: rem 

1 83 





40 PRINT"{CLR}{ 2 GIU'}ATTENDERE PREGO":DIMM%(25,22),MZ(2 
,7) :rem 138 

50 HO$=CHR$ (19) :CL$=CHR$(147) :WH$=CHR$(5) :RD$=CHR$(28) 

:rem 223 

60 CM=55296:PM=1024:KL=40 :rem 139 

70 SI = 54273: S2=54272:VL=54296:WV=54276:AD = 54277:SR=54278 




: rem 

1 67 

80 : 

LA$=CHR$(157):RA$=CHR$(29):DA$=CHR$(17):UA$ 

=CHR$ (1 45) 



:rem 

39 

90 MZ(1,0)=167:MZ(2,0)=103 

: rem 

90 

100 

MZ(1,1)=164:MZ(2,1)=100 

: rem 

1 26 

1 1 0 

MZ (1 ,2)=165:MZ(2,2)=101 

: rem 

1 31 

1 20 

MZ( 1 ,3) =1 63:MZ(2,3)=99 

: rem 

1 00 

1 30 

Z$="0000000100000001000000010001100100011001000000010 


000000100000001" 

: rem 

1 59 

140 

Y$="0000000000000000000000000001100000011000000000000 


000000011111111" 

:rem 

1 59 

1 50 

W$ = "1000000010000000100000001001100010011000100000001 


000000010000000" 

: rem 

1 58 

1 60 

R$=" 1 1 limi 00000000000000000001 10000001 1000000000000 


000000000000000" 

:rem 

1 54 

1 70 

POKE53265,PEEK(53265)AND239 

:rem 

228 

1 80 

GOSUB490 

:rem 

1 82 

1 90 

POKE53265,PEEK(53265)ORI 6 

: rem 

1 25 

200 

PRINTCL$;WH$; 

:rem 

11 

210 

PRINT:PRINT 

:rem 

231 

220 

FORI=lTO20 

:rem 

55 

230 

PRINT:PRINT"{ 7 SPAZI}";CHR$(MZ(1,0)); 

: rem 

1 22 

240 

FORJ=lT024 

:rem 

62 

250 

M% (J,I)=INT(RND( 1 ) *4) 

:rem 

86 

260 

PRINTCHR$(MZ(1,M%(J,I))); 

: rem 

1 37 

270 

NEXT:PRINTCHR$(MZ(1 ,2)); :NEXT 

: rem 

44 

280 

SE=0:X=1:Y = 21:X1=1:Y1=21: TI$ = "000000" 

:rem 

3 

290 

XX=X+7:YY=Y+2:C=46:GOSUB780 

:rem 

1 58 

300 

POKEl98,0 

:rem 

192 

31 0 

SC=SE+INT(T1/300) 

:rem 

1 97 

320 

GETI$:IFI$=LA$ORI$=RA$ORI$=UA$ORI$=DA$THEN350 




:rem 

200 

330 

PRINTHO$;STR$(INT(TI/60));" SECS";TAB(12); 

"PUNTI 

- « . 
» 


STR$(SC); 

:rem 

46 

340 

PRINTTAB(25);"PASSI =";STR$(SE):GOTO320 

:rem 

56 


350 IF(X=1ANDI$=LA$)OR(X=24ANDI$=RA$)OR(Y=lANDI$=UA$)OR(Y 
=21ANDI$=DA$)THEN310 :rem 81 

360 IFI$=LA$AND((M%(X-l,Y)<>0ANDM%(X f Y)<>2)ORY=21)THENX=X 
-1 :rem 211 

370 IFI$=RA$AND((M%(X+l,Y)<>2ANDM%(X, Y)<>0)ORY=21)THENX=X 
+1 :rem 214 

380 IFI$=DA$AND((M%(X,Y+1)<>3ANDM%(X,Y)<>1)ORY=21)THENY=Y 
+1 :rem 205 

390 IFI$=UA$AND((M%(X,Y-1)<>1ANDM%(X,Y)<>3)ORY=21)THENY=Y 
-1 :rem 227 


20 



400 

SE=SE+1 

:rem 

93 

410 

IFY1=21THENXX=Xl+7 :YY = 23:C = 32:GOSUB780 

:rem 

91 

420 

IFY=21THENXX=X+7:YY=23:C=46:GOSUB780 

:rem 

255 

430 

IFYl<>21THENXX=Xl+7 :YY=Yl+2:C=MZ(2,M%(Xl ,Yl) ) :GOSUB78 


0 

: rem 

1 5 

440 

IFY< >21THENXX=X+7:YY=Y+2:C=MZ( 2 ,M%(X,Y)+4) 

:GOSUB780 



: rem 

1 22 

450 

IFX=Xl ANDY=Yl ANDSEOOTHENGOSUB820 

: rem 

151 

460 

IFY = 1ANDM%(X,Y)<>3THENGOSUB880 : GOTO200 

:rem 

100 

470 

Xl=X:Yl=Y 

:rem 

19 

480 

GOTO310 

:rem 

1 05 

490 

REM 

:rem 

1 29 

500 

POKE56334,PEEK(56334)AND254:POKEl,PEEK(1)AND251 




: rem 

1 82 

510 

Cl=12288:C0=53248 

: rem 

60 

520 

FORI=0TO103 

: rem 

1 07 

530 

FORJ=0TO7 

: rem 

1 6 

540 

POKECl+1*8+J, PEEK(C0+I*8+J) 

:rem 

231 

550 

NEXT 

: rem 

21 7 

560 

NEXT 

: rem 

21 8 

570 

POKEl,PEEK(1)OR4:POKE56334,PEEK(56334)ORI 

:rem 

139 

580 

POKE53272,(PEEK(53272)AND240)+12 

:rem 

1 88 

590 

CN=27:CC$=Z$:GOSUB640:MZ(2,4)=CN 

: rem 

90 

600 

CN=29:CC$=Y$:GOSUB640:MZ(2,5)=CN 

: rem 

84 

610 

CN=37:CC$=W$:GOSUB640:MZ(2,6)=CN 

: rem 

83 

620 

CN=38:CC$=R$:GOSUB640:MZ(2,7)=CN 

: rem 

81 

630 

RETURN 

: rem 

121 

640 

REM 

: rem 

1 26 

650 

CG=Cl + (CN* 8) 

:rem 

69 

660 

F0RI=0TO7 

: rem 

1 9 

670 

N$=MID$(CC$,1*8+1 ,8) 

:rem 

220 

680 

GOSUB720 

: rem 

183 

690 

POKECG+I,TF 

: rem 

1 46 

700 

NEXT 

: rem 

214 

710 

RETURN 

:rem 

1 20 

720 

REM 

: rem 

1 25 

730 

TF = 0 

: rem 

1 61 

740 

FORL=0TO7 

:rem 

21 

750 

TF=TF+(2|L)*VAL(MID$(N$,8-L,l) ) 

:rem 

190 

760 

NEXT 

: rem 

220 

770 

RETURN 

:rem 

1 26 

780 

REM 

: rem 

1 31 

790 

SD=(KL*YY)+XX 

2 rem 

1 9 

800 

POKECM+SD,1 :POKEPM+SD,C 

2 rem 

1 73 

81 0 

RETURN 

:rem 

1 21 

820 

REM 

2 rem 

1 26 

830 

POKEWV,129 :POKEAD,170:POKEVL,15:POKESR,248 

2 rem 

102 

840 

POKES1,68 :POKES2,149 

2 rem 

161 

850 

FORTT=1TO 2 0 0 :NEXTTT 

2 rem 

240 

860 

POKEWV,0 :POKEAD,0 :POKEVL,0 :POKESR,0 

:rem 

241 

870 

RETURN 

2 rem 

1 27 


21 



880 

REM 

: rem 

1 32 

890 

POKEAD,144 :POKESR,24 3 

: rem 

237 

900 

POKEWV/33 

: rem 

7 

910 

POKEVL,15 

: rem 

253 

920 

FORK=lTO20 

: rem 

64 

930 

POKES1,134:POKES2,30:FORT=1TO10 0 :NEXT 

:rem 

32 

940 

POKESl,8 :POKES2,97 :FORT=lTOl00:NEXT 

: rem 

206 

950 

NEXT 

: rem 

221 

960 

POKEWV,0 :POKEVL,0 :POKEAD,0 :POKESR,0 

:rem 

242 

970 

RETURN 

: rem 

1 28 


r\ 

o» 

h Matematica e pittura Joystick 


Conosci il detto "prima il dovere, 
poi il piacere"? Con questo gioco 
"scolastico" è possibile avere en¬ 
trambi le cose. 

Al l'inizio verrà chiesto il tipo di 
problemi che si vogliono risolvere: 
o addizioni o sottrazioni, dopodi¬ 
ché verranno presentati 5 proble¬ 
mi matematici; per ogni problema 
si hanno a disposizioni due prove. 
Finiti i 5 problemini viene l'ora del 


divertimento, cioè disegnare sullo 
schermo con il joystick in porta # 
2; ma il tempo per disegnare è limi¬ 
tato: ogni problema risolto esatta¬ 
mente dà diritto ad un minuto di 
disegno. Dopo si ricomincia con i 
problemini. 

Questo programma è consigliabile 
per i bambini che frequentano le 
scuole elementari. 


1 0 

REM *** MATEMATICA E PITTURA *** 

: rem 

1 33 

20 

REM *** PAPERSOFT *** 

: rem 

246 

25 

DIM LINE?(25) 

: rem 

69 

30 

LINE$ (1 ) =CHR$ (19) 

: rem 

42 

35 

FORA= 2T025 

: rem 

9 

40 

LINE$(A)=LINE$(A-l)+CHR$ (17) 

: rem 

1 60 

45 

NEXTA 

: rem 

233 

60 

POKE53280,5:POKE53281 ,7 

: rem 

1 99 

65 

POKE64 6,9 : PRINTCHR$ (147) 

: rem 

84 

70 

PRINTLINE$(5)SPC(10)"MATEMATICA E PITTURA 

" : r em 

230 

75 

PRINTLINE$(6)SPC(1 0) ; 

: rem 

1 59 

76 

FORA=1TO20:PRINTCHR$(183); :NEXT 

: rem 

113 

80 

PRINTLINE$(9)SPC(7)"CHE TIPO DI PROBLEMA 

VUOI? 11 




s rem 

234 

85 

PRINTLINE$(14)"PREMI + PER PROBLEMI CON L 

'ADDIZIONE 

tt 


1 9 


22 


: rem 





90 

PRINTLINE$(16)"PREMI - PER PROBLEMI CON LA 

SOTTRAZIONE 


TI 

: rem 

248 

95 

PRINTLINE$(20)SPC(12)"A TE LA SCELTA 

: rem 

54 

1 1 0 

ZZ=1:SC=1024:CO=54272:CL=0 

: rem 

203 

1 25 

FORA=0TOl0:READXY(A) : NEXT 

: rem 

67 

1 30 

DATAO,-40,40,0,-1,-41 

: rem 

207 

1 35 

DATA39 , 0 , 1,-39,41 

: rem 

46 

21 0 

AD=49152 

: rem 

90 

215 

READX : IFX=-1THEN310 

: rem 

1 39 

220 

POKEAD , X:AD=AD+1 

: rem 

1 69 

225 

GOTO215 

: rem 

1 06 

230 

DATAI 62,4,160,1 96,32,30,1 92 

: rem 

31 

231 

DATAI 62,21 6,160,200,32,30 

: rem 

1 75 

232 

DATAI 92,96,1 62,1 96,160,4 

: rem 

1 56 

233 

DATA32,30,192 , 1 62 , 200 , 1 60 

: rem 

1 80 

234 

DATA21 6,32,30,192,96 

: rem 

207 

235 

DATAI 42,42,192,140,45,1 92 

: rem 

1 95 

236 

DATA160,4,1 62,0, 1 89,0,0 

: rem 

83 

237 

DATAI 57,0,0,202,208,247 

: rem 

90 

238 

DATA238,42,1 92,238,4 5,1 92 

: rem 

21 2 

239 

DATA136,208,238,96,-1 

: rem 

6 

240 

REM. ..SYS (49152) = 'SALVA' LO SCHERMO . 

: rem 

7 

245 

REM. . .SYS(49167) = RIPRISTINA LO SCHERMO 

: rem 

82 

310 

POKE20 4,0 : POKEl98,0 

: rem 

28 

31 5 

PRINT" "CHR$ (157); 

: rem 

1 48 

320 

GETAN$ : IFAN$<>"+"AND AN$O"-"THEN320 

: rem 

1 94 

325 

POKE204,1 

: rem 

1 88 

330 

PRINTAN$ 

: rem 

21 4 

335 

FORA=1TO10 0 0 :NEXT 

: rem 

14 

400 

REM 

: rem 

1 20 

41 0 

POKE53280,8 : POKE53281 ,5 

: rem 

247 

420 

POKE646,13:PRINTCHR$(147) 

:rem 

1 70 

425 

PRINTLINE$ (4) SPC (8) "ADESSO TU HAI 5 PROBLEMI" 

: rem 

1 1 7 

430 

IFAN$="+"THENPRINTLINE$(6)SPC(8)"CON L f ADDIZIONE 

: rem 

TI 

223 

435 

IFAN$="-"THENPRINTLINE$(6)SPC(8)"CON LA SOTTRAZIONE." 

:rem 203 

440 

PRINTLINE$(8)SPC(8)"PER OGNI RISPOSTA ESATTA" 

: rem 

248 

445 

PRINTLINE$(10)SPC ( 8 ) "AQUISTERAI 1 MINUTO" 

: rem 

224 

450 

PRINTLINE$(12)SPC(8)"PER PITTURARE." 

: rem 

1 74 

455 

PRINTLINE$ (1 6) SPC (1 2) ; 

: rem 

4 

456 

FORA=1TO11 : PRINTCHR$(175);:NEXT 

: rem 

1 64 

460 

PRINTLINE$ (1 7) SPC (1 2) CHR$ (1 8) " AUGURI... " 

: rem 

28 

465 

PRINTLINE$(18)SPC(12) ; 

: rem 

7 

466 

FORA=1TO11 :PRINTCHR$(163) ; :NEXT 

: rem 

162 

470 

PRINTLINE$(23)SPC(11)"PREMI UN TASTO 

: rem 

237 

475 

POKE20 4,0 :POKEl98,0 

: rem 

40 

480 

PRINT" "CHR$(157); 

: rem 

1 51 

485 

GETA$:IFA$=""THEN485 

: rem 

101 


23 



490 

POKE204,1 

: rem 

1 91 

510 

PROB=l:TL=1 

: rem 

1 27 

515 

GOSUBl 000 :TRY = 0 

: rem 

1 30 

600 

REM 

:rem 

1 22 

610 

POKE53 280,6 :POKE53281 ,6 

: rem 

248 

615 

PRINTCHR$ (1 47) ;CHR$ (31) ;CHR$ (1 8) ; 

: rem 

57 

620 

FORA=lT05 

: rem 

6 

625 

PRINT"{ 40 SPAZI; 

: rem 

1 69 

630 

NEXTA 

2 rem 

25 

635 

PRINT"{ 9 SPAZI}"; 

2 rem 

1 70 

640 

PRINTCHR$(158)CHR$(1 09)"{ 20 SPAZI}"; 

2 rem 

1 30 

645 

PRINTCHR$(110)CHR$(31)"{ 9 SPAZI}"; 

2 rem 

69 

660 

FORA=lTOl0 

2 rem 

54 

665 

PRINT"{ 9 SPAZI}"; 

2 rem 

173 

670 

PRINTCHR$ (158)" "CHR$(144); 

2 rem 

1 32 

675 

PRINT"{ 20 SPAZI}"; 

2 rem 

174 

680 

PRINTCHR$(1 58)" "CHR$(31)"{ 9 SPAZI}"; 

:rem 

1 48 

685 

NEXTA 

2 rem 

35 

690 

PRINT"{ 9 SPAZI}"; 

:rem 

1 71 

695 

PRINTCHR$(158)CHR$(110)"{ 20 SPAZI}"; 

2 rem 

1 32 

700 

PRINTCHR$(109)CHR$(31)"{ 9 SPAZI}"; 

2 rem 

69 

705 

FORA=1T07 

: rem 

1 2 

71 0 

PRINT"{ 40 SPAZI}"; 

: rem 

1 64 

715 

NEXTA 

2 rem 

29 

720 

PRINT"{ 38 SPAZI}"; 

:rem 

1 65 

725 

POKE56294,6 :POKE20 22,224 

2 rem 

44 

730 

POKE56 295,6 :POKE20 23,224 

2 rem 

42 

735 

POKE53281,0 

2 rem 

45 

740 

PRINTCHR$(19):PRINTCHR?(5) 

2 rem 

50 

810 

PRINTLINE$(07)SPC(10)"#" 

2 rem 

41 

81 5 

PRINTLINE$(07)SPC(11)PROB 

2 rem 

251 

820 

PRINTLINE$(09)SPC(20)Ni $ 

2 rem 

1 05 

825 

PRINTLINE$(11)SPC(20)N2$ 

2 rem 

1 04 

830 

IFAN$ = "+"THENPRINTLINE?(11) SPC(1 8)"+" 

2 rem 

83 

835 

IFAN$="~"THENPRINTLINE?(11)SPC(18) 

2 rem 

92 

840 

PRINTLINE$(12)SPC(18); 

2 rem 

4 

845 

FORA=lT06:PRINTCHR?(100) ; :NEXT 

2 rem 

no 

850 

PRINTLINE$(13)SPC(22); 

2 rem 

i 

855 

GOSUB2000 

2 rem 

228 

860 

ANS=VAL(A$) 

2 rem 

86 

865 

IFN3<10THEN900 

2 rem 

24 

870 

GOSUB2000 

2 rem 

225 

875 

ANS=ANS+(VAL(A$)* 10) 

2 rem 

69 

880 

IFN3=ANS THEN935 

2 rem 

1 59 

885 

GOSUB2000 

: rem 

231 

890 

ANS=ANS+(VAL(A$)* 100 ) 

2 rem 

114 

900 

IFN3=ANS THEN935 

2 rem 

152 

905 

TRY=TRY+1:IF TRY=2THEN920 

2 rem 

54 

91 0 

PRINTLINE$(15)SPC(12)"ERRORE RIPROVA" 

2 rem 

250 

91 5 

FORA=1TO 2 0 0 0 :NEXT: GOTO 600 

2 rem 

28 

920 

PRINTLINE?(14)SPC(10)"ERRORE" 

2 rem 

21 3 


24 



925 

PRINTLINE$(16)SPC(10)"LA RISPOSTA E' 

"STR$(N3) 




: rem 

1 06 

930 

GOTO945 

: rem 

1 1 9 

935 

TL=TL+1 

: rem 

1 22 

940 

PRINTLINE$(15)SPC(15)"BENISSIMO!" 

: rem 

216 

945 

FORA=lT03000:NEXT 

: rem 

23 

950 

PROB=PROB+l :IFPROB< 6THEN515 

:rem 

21 3 

955 

POKE53280, 1 4:POKE53281 ,2 

: rem 

47 

960 

POKE646,1 :PRINTCHR$(147) 

:rem 

1 28 

965 

PRINTLINE$(10)"TU HAI "TL"RISPOSTE ESATTE" : rem 

1 7 

970 

PRINTLINE$(12)"QUESTO E' IL TEMPO PER 

PITTURARE" 




: rem 

1 27 

975 

PRINTLINE8(14)"{RVS}USA IL JOYSTICK NELLA PORTA # 

2 


{OFF}" 

:rem 

81 

985 

FORA=1TO4 0 0 0 :NEXT 

: rem 

28 

990 

GOTO3000 

: rem 

1 58 

1 000 

REM 

:rem 

1 65 

101 0 

Ni =INT((RND(0)* 99)+1) 

: rem 

1 04 

1015 

N2=INT((RND(0)*49)+1) 

: rem 

1 05 

1020 

IFNl=N2THENl015 

: rem 

1 32 

1025 

IFN1<N2THENN3=Nl:Nl=N2:N2=N3 

: rem 

236 

1030 

IFAN$="+"THENN3=Nl+N2 

: rem 

201 

1 035 

IFAN$="-"THENN3=N1-N2 

: rem 

210 

1 040 

Ni$=STR$(Ni) :IFNl<10THENN1 $ = " "+Nl$ 

:rem 

152 

1 045 

N2$=STR$(N2):IFN2<10THENN2$=" "+N2$ 

: rem 

162 

1050 

RETURN 

: rem 

1 66 

2000 

REM 

: rem 

1 66 

2010 

POKE204,0 :POKEl98,0 

: rem 

75 

201 5 

PRINT" ?"CHR$ (1 57) ; 

: rem 

2 

2020 

GETA$:IFA$=""THEN2020 

:rem 

1 71 

2025 

IFA$<"0"ORA$>"9"THEN2020 

: rem 

33 

2030 

POKE204,1 

: rem 

231 

2035 

PRINTA$ ;CHR$ (157) ;CHR$ (1 57) ; 

: rem 

75 

2040 

RETURN 

: rem 

1 66 

3000 

REM 

: rem 

1 67 

301 0 

PRINTCHR$ (144) ; CHR$ (147) 

: rem 

1 01 

301 5 

POKE53280,8 :POKE53281 ,1 5 

:rem 

92 

3020 

IFZZ THENZZ = 0 : GOTO 3030 

: rem 

1 45 

3025 

SYS(49167) 

:rem 

37 

3030 

PRINTLINE$(25)SPC(14)"TEMPO = MIN."; 

: rem 

70 

3035 

PRINTCHR? (157) CHR$ (157) CHR$ (157) CHR$ 

(157); :rem 

79 

3040 

TIME$="000000" 

: rem 

1 87 

3045 

T2$=MID$(TIME?,4,1) 

:rem 

1 8 

3050 

T2=TL-VAL(T2$) 

:rem 

54 

3055 

PRINTCHR$ (1 57 ) CHR$ (1 57)CHR$ (1 57) ;T2; 

:rem 

35 

3060 

IFT2=0THEN3170 

: rem 

69 

31 00 

JV=PEEK(56320):KV=PEEK(197):SV=PEEK(653) :rem 

122 

31 05 

FB=16-(JVANDl6):JV=15-(JVANDl5) 

:rem 

33 

31 1 0 

CH=PEEK(SC):CC=PEEK(SC+CO) 

: rem 

95 

31 1 5 

IFCH>127THENPOKESC,171 :GOT03125 

: rem 

1 79 

31 1 6 

IFKV= 56THENCL=1 

: rem 

207 


25 



31 1 7 

IFKV= 59THENCL=2 

: rem 

212 

31 1 8 

IFKV=8THENCL=3 

: rem 

1 60 

31 1 9 

IFKV=11THENCL=4 

: rem 

204 

31 20 

IFKV=16THENCL=5 

: rem 

202 

3121 

IFKV=19THENCL=6 

: rem 

207 

31 22 

IFKV=24THENCL=7 

: rem 

205 

3123 

IFKV=27THENCL=8 

: rem 

210 

3124 

POKESC,43:POKESC+CO,CL 

: rem 

1 53 

3125 

FORA=1TO10 0 :NEXT 

: rem 

1 4 

31 30 

POKESC,CH:POKESC+CO,CC 

: rem 

1 77 

31 35 

FORA=1TO80:NEXT 

: rem 

230 

3140 

IFFBTHENPOKESC,160:POKESC+CO,CL 

: rem 

1 3 

3145 

IF SV THENPOKESC,32 

: rem 

1 38 

31 55 

SC=SC+XY(JV) 

: rem 

4 

3160 

IF (SCO 0 24) OR (SOI 9 83 ) THENSC=SC-XY (JV) 

: rem 

69 

3165 

GOTO3045 

: rem 

212 

3170 

SYS(49152) 

: rem 

32 

3175 

GOTO400 

: rem 

1 57 


n 

o» 

ji Drasster 


Joystick opz 


Ti trovi alla guida del piu potente 
modello di dragster che sia mai sta¬ 
to realizzato, e devi riuscire a per¬ 
correre con esso una strada parti¬ 
colarmente tortuosa. Fai attenzio¬ 
ne a non schiantarti contro i muretti 
che delimitano il percorso ed evita 


le numerose macchie d'olio sparse 
sul tracciato. Per giocare usa M e 
N, oppure il joystick nella porta n. 
2. Alla fine di ogni partita saprai 
quanti chilometri sei riuscito a per¬ 
correre. 


1 00 

REM **DRAGSTER** 

: rem 

1 21 

1 1 0 

POKE650,128:V=53248:BG=53280:MS= 

54272:GOTO980 




: rem 

39 

1 20 

R$=R$(R) 

: rem 

95 

130 

C=PEEK(V+31)ANDl:IFC=lTHEN300 

: rem 

1 75 

1 40 

IFTICl000THEN170 

: rem 

1 33 

1 50 

TI$="000000":R=R+1:IFR>7THENR=7 

: rem 

244 

1 60 

R$=R$(R):DS=DS+1000:GOT0220 

: rem 

251 

1 70 

IFINT(RND(TI)*100)<40THENR$=RR$ 

: rem 

58 

1 80 

SP=ABS(SP+(INT(RND(TI)*3)-1 ) ) 

: rem 

1 36 

1 90 

SP = SP-(1 *(SP<(40-LEN(R$) ))+l) 

: rem 

1 0 

200 

SP = SP*( (SP<0)+1) 

: rem 

76 

21 0 

PRINT"{HOME}{ 23 GIU'}" 

: rem 

254 


26 





220 PRINT:PRINTSPC(SP)R$ : rem 56 

230 IFRND(.)<•2THENOL=INT(RND(.)*(LEN(R$))):PRINT"{SU}"SP 

P /CD4.HT \ H _ ^ ^ t 



C(SP+OL)" [<I>]Q" 


:rem 

221 

240 

P=PEEK(203):IFP=39THEN290 


: rem 

1 86 

250 

IFP=36THEN280 


: rem 

229 

260 

P=PEEK(56320)ANDl2 :IFP = 8THEN290 


: rem 

41 

270 

IFP04THEN300 


: rem 

232 

280 

POKEV,PEEK(V)+3 :POKEV,PEEK{V)+4: 

GOTO12 0 

: rem 

145 

290 

POKEV,PEEK(V)-3:POKEV,PEEK(V)-4: 

GOTO!20 

:rem 

150 

300 

C=PEEK(V+31)ANDl:IFC=0THEN140 


: rem 

1 75 

310 

REM 


:rem 

1 20 

320 

POKEMS + 4,0 :POKEMS + 6,0 

« 

: rem 

229 

330 

POKEMS + 4,0 :POKEMS + 1 ,72:POKEMS,l79:POKEMS + 5, 

140:POKEMS 


+4,129 


: rem 

74 

340 

PRINT"{HOME}{RED}":PRINT"{HOME}{ 

2 SPAZI}{RVS}CRASH!! 


I{OFF}{ 30 SPAZI}” 


:rem 

45 

350 

FORI=0TO150STEP2:POKE2040,I:POKE2040,192:NEXT:POKEMS+ 


4,0 


: rem 

1 80 

360 

XS=TI :DS= (XS-ES+ (R+l ) *1000)/100 


: rem 

1 94 

370 

PRINT"{ 2 GIU'}DISTANZA:"DS"CHILOMETRI{ 24 

SPAZI } 

•» 




2 rem 

240 

380 

IFDS>HDTHENHD=DS 


: rem 

26 

390 

PRINT"{GIU'}RECORD:{ 2 SPAZl}"HD 

"CHILOMETRI 




{ 25 SPAZI}" 


:rem 

55 

400 

PRINT"{GIU'}{ 2 SPAZI}PREMI UN TASTO O IL PULSANTE":P 


RINT"{ 2 SPAZI}DEL JOYSTICK PER 

INIZIARE" 

: rem 

3 

410 

POKEl98,0 


: rem 

1 94 

420 

IF (PEEK(56320)ANDl6)=0THEN440 


: rem 

90 

430 

GETA$: IFA$ = ""THEN420 


: rem 

80 

440 

PRINT"{C LR}" 


: rem 

252 

450 

POKE2040,192 


: rem 

86 

460 

REM 


: rem 

1 26 

470 

PRINT"{CLR}";:POKEBG,1:POKEBG+l, 

1 

: rem 

52 

480 

POKEV+39,6 


: rem 

26 

490 

POKEV,0:POKEV+1,0 


: rem 

245 

500 

POKEV+16,PEEK(V+16)AND 2 54 


: rem 

164 

510 

POKE2040,192 


: rem 

83 

520 

POKEV+21,PEEK(V+21 ) ORI 


: rem 

2 

530 

POKEV+27,0 


: rem 

13 

540 

POKEV,168 


: rem 

233 

550 

PRINT"{HOME}SEI ALLA GUIDA" 


: rem 

227 

560 

PRINT"{GIU 1 }DI UN" 


:rem 

1 73 

570 

PRINT"{GIU'}NUOVO DRAGSTER." 


: rem 

159 

580 

PRINT"{ 2 GIU'}DEVI GUIDARE" 


: rem 

1 85 

590 

PRINT"{GIU*}AL TUO LIMITE." 


: rem 

247 

600 

PRINT"{ 2 GIU'JUSA I TASTI" 


: rem 

64 

61 0 

PRINT"{GIU'}M & N" 


: rem 

58 

620 

PRINT"{GIU'}OPPURE" 


:rem 

85 

630 

PRINT"{GIU'}IL JOYSTICK 2" 


: rem 

1 78 

640 

PRINT"{HOME}{ 2 GIU'}"SPC(24)"ATTENZIONE AI 

" : rem 

1 2 

650 

PRINT"{HOME}{ 4 GIU'}"SPC(24)"MURETTI E" 

: rem 

1 9 


27 



660 PRINT"{HOME}{ 6 GIU'}"SPC(24)"ALLE MACCHIE" 
670 PRINT"{HOME}{ 8 GIU'}"SPC(24)"D’OLIO !" 

680 PRINT"{HOME}{ 22 GIU'}PREMI LA BARRA":PRINT"0 


: rem 
: rem 


IL 


207 
1 69 
FIR 



E'{HOME}"; 

:rem 

27 

690 

FORI=lT024 

:rem 

70 

700 

PRINTSPC(16);"{RED}{RVS}[<L>][<Q>]{OFF}{ 

3 SPAZI} 



{RVS}[<W>]{RVS}[<J>]{OFF}" 

:rem 

1 28 

710 

NEXT 

: rem 

215 

720 

PRINT"{HOME}"SPC(19)"D{ 2 GIU’}{SIN}R{ 2 

GIU’}{SIN}A 


{ 2 GIU'}{SIN}G{ 2 GIU 1 }{SIN}S{ 2 GIU’}{SIN}T 
{ 2 GIU’}{SIN}E{ 2 GIU'}{SIN}R{ 3 GIU'}{SIN}6 



{ 2 GIU'}{SIN}4" 

: rem 

240 

730 

GOSUB1 290 :POKEMS+4,129 : FORI = 20T0250:POKEV+1,I:NEXT 



:rem 

98 

740 

IF(PEEK(56320)ANDl6)=0THEN760 

: rem 

1 00 

750 

GETA$:IFA$< >" "THENPOKEMS+4,0 :FORT=1TO200 

:NEXT:GOTO73 


0 

: rem 

36 

760 

POKEMS+24,5 

: rem 

94 

770 

FORI=VTOV+l6 :POKE1,0:NEXT 

: rem 

1 1 5 

780 

POKEV+27,253 

: rem 

1 26 

790 

FORI=lTO30 

: rem 

68 

800 

PRINTSPC(16){RED}{RVS}[<L>][<Q>]{OFF}{ 

3 SPAZI} 



{RVS}[<W>]{RVS}[<J>]{OFF}" 

:rem 

1 29 

81 0 

NEXT 

: rem* 

216 

820 

POKEV,168:POKEV+1,70 

:rem 

1 52 

830 

GOSUBl210 

: rem 

223 

840 

TI$="000007" 

:rem 

5 

850 

PRINT"{HOME}{ 9 GIU'}{ 7 DES}{RED}Q"; 

:rem 

1 3 

860 

Tl=INT(10-VAL(TI$)) 

:rem 

31 

870 

IFT1 O2THEN860 

: rem 

44 

880 

PRINT"{SIN} { 2 GIU*}{SIN}{YEL}Q"; 

:rem 

119 

890 

Tl=INT(10-VAL(TI$)) 

:rem 

34 

900 

IFTl<>1THENPOKEl98,0:GOTO890 

: rem 

200 

91 0 

PRINT"{SIN} { 2 GIU'}{SIN}{GRN}Q"; 

: rem 

241 

920 

IF(PEEK(56320)ANDl6)=0THEN940 

: rem 

1 00 

930 

GETA$: IFA$< >" "THEN920 

:rem 

1 51 

940 

POKEl98,0:ES=TI: TI$ = "000000":DS=0:R=0:GOSUBl290:POKEM 


S+4,129 

:rem 

255 

950 

FORI=70TOl80:POKEV+1,I:NEXT 

: rem 

1 83 

960 

SP=13:R$=R$(R):RR$=RR$(R) 

:rem 

147 

970 

POKEl98,0:GOTOl20 

:rem 

21 1 

980 

REM 

:rera 

1 33 

990 

R$ (7)= " [<1>] {RVS}{ 2 SPAZI}{OFF}{ 5 SPAZI}{RVS} 



{ 2 SPAZI}{OFF}" 

:rem 

234 

1000 

1 R$ (6)="[<2>] {RVS}{ 2 SPAZI}{OFF}{ 5 SPAZl}{RVS} 



{ 2 SPAZI}{OFF}" 

:rem 

28 

1 01 0 

R$(5)="[<3>]{RVS}{ 2 SPAZI}{OFF}{ 6 SPAZI}{RVS} 



{ 2 SPAZI}{OFF}" 

:rera 

29 

1 020 

R$ (-4) =" [<4>] {RVS} { 2 SPAZI } {OFF } { 6 SPAZl}{RVS} 



{ 2 SPAZI}{OFF}" 

:rem 

30 

1 030 

R$(3)="[<5>]{RVS}{ 2 SPAZI}{OFF}{ 6 SPAZI}{RVS} 



28 




{ 2 SPAZI}{OFF}" 



:rem 

31 

1 040 

R$(2)=" [<6>] {RVS} { 2 

SPAZI}{OFF} { 

7 

SPAZI}{RVS} 



{ 2 SPAZI}{OFF}" 



: rem 

32 

1 050 

R$ (1)="[<7>] {RVS}{ 2 

SPAZI}{OFF}{ 

7 

SPAZI}{RVS} 



{ 2 SPAZI}{OFF}" 



:rem 

33 

1 060 

R$ (0)="[<8>] {RVS}{ 2 

SPAZI}{OFF} { 

8 

SPAZI}{RVS} 



{ 2 SPAZI}{OFF}" 



: rem 

34 

1 070 

RR$(7)="[<1>]{RVS}{ 2 

SPAZI}{OFF}{ 

5 

SPAZI}{RVS} 



{ 2 SPAZI}{OFF}" 



: rem 

98 

1080 

RR$(6)="[<2>]{RVS}{ 2 

SPAZI}{OFF}{ 

5 

SPAZI}{RVS} 



{ 2 SPAZI}{OFF}" 



: rem 

1 1 8 

1090 

RR$(5)="[<3>]{RVS}{ 2 

SPAZI}{OFF}{ 

6 

SPAZI}{RVS} 



{ 2 SPAZI}{OFF}" 



: rem 

1 1 9 

1 1 00 

RR$(4)="[<4>]{RVS}{ 2 

SPAZI}{OFF}{ 

6 

SPAZI}{RVS} 



{ 2 SPAZI}{OFF}" 



: rem 

1 1 1 

11 10 

RR$(3)="[<5>]{RVS}{ 2 

SPAZI}{OFF}{ 

6 

SPAZI}{RVS} 



{ 2 SPAZI}{OFF}" 



:rem 

1 1 2 

1 1 20 

RR$(2)="[<6>]{RVS}{ 2 

SPAZI}{OFF}{ 

7 

SPAZI}{RVS} 



{ 2 SPAZI}{OFF}" 



:rem 

113 

1 1 30 

RR$(1)="[<7>]{RVS}{ 2 

SPAZI}{OFF}{ 

7 

SPAZI}{RVS} 



{ 2 SPAZI}{OFF}" 



:rem 

1 1 4 

1 1 40 

RR$(0)="[<8>] {RVS}{ 2 

SPAZI}{OFF}{ 

8 

SPAZI}{RVS} 



{ 2 SPAZI}{OFF}" 



:rem 

1 1 5 

1 1 50 

FORI = 12288T012 350 : READN :POKEI, N :NEXT 

: rem 

32 

1 1 60 

REM 



: rem 

1 72 

1 1 70 

DATAO,0,0,60,0,60,60, 

255,60,63,195 

,252,63,255,252,60 


,255,60,60,126,60 



: rem 

83 

1 1 80 

DATAO,60,0,0,60,0,0,60,0,0,60,0,0, 

60 

,0,0,60,0,0, 

60,0 





: rem 

190 

1 1 90 

DATA3,60,1 92,3,60,1 92 

,3,255,192,3, 

255,192,3,60,192,3 


,24,192,0,0,0 



: rem 

1 43 

1 200 

GOTO460 



: rem 

1 50 

1210 

PRINT" {HOME} { 8 GIU'H 6 DES}U*I" 


: rem 

60 

1220 

FORI=1T05:PRINTSPC(6) 

"B B":NEXT 


: rem 

1 76 

1 230 

PRINTSPC(6)"J*K" 



: rem 

89 

1 240 

FORI=ITO8:PRINTSPC(7) 

"{RVS} ":NEXT 


: rem 

68 

1250 

PRINT"{HOME}{ 2 GIU'JPREMI LA BARRA" 

:rem 

64 

1 260 

PRINT"{GIU'}0 IL *FIRE'" 


: rem 

3 

1 270 

PRINT"{GIU 1 }ALLA LUCE 

VERDE" 


: rem 

101 

1280 

RETURN 



:rera 

1 71 

1 290 

REM 



:rem 

176 

1 300 

POKEMS+4 , 0 :POKEMS+24 , 

15:POKEMS+5,85: 

POKEMS+6,195 

: POR 


EMS, 1 5 : POKEMS+1 ,1 



s rem 

1 4 

1 310 

RETURN 



: rem 

165 


29 



A 

0 > 

Multipoke 



Non ti capita mai di scrivere un 
programma di tua invenzione e di 
dover digitare tante POKE con in¬ 
dirizzi successivi (es. POKE 
53280,1 : POKE 53281,0)? Questo 
programma evita il susseguirsi di 
tante POKE e permette di sprecare 
meno memoria. 

La sintassi di MULTIPOKE è la se¬ 
guente: 

& indirizzo,n,(n,...n): 

dove "indirizzo" è la prima loca¬ 
zione desiderata e “n" un valore 
da 0 a 255. Per fare un esempio: 

10 & 53280,3,1: 

in questo esempio l'indirizzo della 
locazione è 53280; il valore 3 viene 
messo in questa locazione mentre 
il valore 1 è posto nella locazione 
seguente 53281. 

La nuova istruzione MULTIPOKE 
deve essere comunque seguita dai 


due punti " anche in fine di linea. 
MULTIPOKE lavora anche variabili 
ed espressioni, come per esem¬ 
pio 

20 & W*L+N,S3,D+R : 

Ovviamente è possibile usare 
MULTIPOKE anche per memorizza¬ 
re più di due bytes, come per 
esempio nella definizione di spri- 
tes. Bisogna inoltre ricordare che 
MULTIPOKE non lavora in modo 
diretto cioè senza numero di linea. 
Per attivare il MULTIPOKE dopo 
averlo caricato basta un semplice 
comando RUN, per riattivarlo suc¬ 
cessivamente basta un comando 
SYS 828 e per disattivarlo una SYS 
919. 

Essendo questo programma in lin¬ 
guaggio macchina residente nel 
buffer cassetta, non bisogna usare 
il registratore con MULTIPOKE in 
funzione. Nel programma presen¬ 
tato è incluso una dimostrazione. 


1 0 

REM**MULTIPOKE** 

: rem 

1 67 

20 

REM* * PAPERSOFT* * 

: rem 

1 62 

25 

REM 

: rem 

75 

26 

PRINT"{CLR}" 

: rem 

204 

30 

GOSUB800 

: rem 

1 23 

35 

FORI = OTO15 :FORJ = OTOl5 :&53280,J,I :NEXTJ,I :rem 

116 

40 

&53280,3,1 :PRINT"MULTIPOKE 

OK..." : rem 

49 

45 

PRINT"{GIU'}PER USCIRE DAL 

MULTIPOKE DIGITARE SYS919" 



: rem 

1 1 5 

50 

END 

: rem 

60 
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800 FORI = 828TO931 :READJ:POKEI,J:NEXT:SYS828: RETURN 

:rem 29 

900 DATAI 69,76,1 3 3,1 24,1 69,73,1 33,1 25,1 69,3,1 33,1 26,96,72 

:rem 62 

910 DATA201 ,38,208,1 3,1 65,1 23,201 ,2,240,7,165,212,208,3 

:rem 174 

9 20 DATAI 04,208,9,104,201 ,58,1 44,1 ,96,76,128,0,32,1 1 5 

: rem 91 

930 DATAO,32,158,173,32,247,183,165,100,133,252,165,101,1 
33 :r em 12 8 

940 DATA251,1 6 9,0,1 33,253,32,1 1 5,0,240,22,32,1 58,1 73,32 

: r em 181 

950 DATA247,!83,164,253,165,101,145,251,230,253,32,121,0, 
240 : rem 176 

960 DATA3,76,1 21 ,3,76,1 1 5,0,1 69,201 ,1 33,1 24,1 69,58,1 33 

: rem 149 

970 DATA125,169,176,133,126,96 :rem 11 



y 

Bit, 

la prima rivista europea 
di personal computer, 
software, accessori, 
la più prestigiosa 
e più diffusa in Italia 

con tutta la competenza del 
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ELENCO DEI TITOLI DISPONIBILI 

I tascabili Jackson sono uno 
strumento prezioso per chi lavora 
con il computer. 

SINCLAIR SPECTRUM cod. 017H 
-Vie 20 cod. 005H 
•COMMODORE 64 cod. 002H 
•PC IBM cod. 018H 
•APPLE Ile cod. 003H 
•SHARP MZ80A cod. 014H 
•LA PROGRAMMAZIONE cod. 004H 
•WORD STAR cod. 008H 
•UNIX cod. 009H 
•LOGO cod. 020H 
•MS-DOS cod. 019H 
•PROGRAMMI DI STATISTICA cod. 

B15H 

•CP/Mcod. 011H 
•PC-DOScod. 012H 

OGNI TASCABILE COSTA L. 8.500 


BASIC cod. 007H 
ASSEMBLER Z80 cod. 016H 
ASSEMBLER 6502 cod. 013H 
COBOL cod. 001H 
FORTRAN 77 cod. 010H 
PASCAL cod. 006H 
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